﻿<Serializable()> _
Public Class EposibleCliente

#Region "           Atributos                       "
    'Private _conyCoop As List(Of EconyCopro)
    'Private _idEmpresa As Int32
    Private _idPosCliente As Int32
    Private _idDni As String
    Private _nombre As String
    Private _apePaterno As String
    Private _apeMaterno As String
    Private _telefono As String
    Private _sexo As Int32
    Private _descSexo As String
    Private _email As String
    Private _EestadoCivil As EestadoCivil
    Private _edad As Int32
    Private _telefonoFijo As String
    Private _telefonoCelular As String
    Private _EnivelInteres As EnivelInteres
    Private _telefonoLaboral As String
    Private _centroLaboral As String
    Private _estado As String
    Private _Eocupacion As Eocupacion
    Private _Eubigeo As Eubigeo
    Private _direccion As String
    Private _totalIngreso As Decimal
    Private _comentarios As String
    Private _descEstado As String
    Private _idUsuario As Int32
    '---------------------------------------'
    Private _filtro As String 'sirve para filtrar el posible cliente
    Private _fchAccion As String  'es la última fecha de accion
    '---------------------------------------'
    Private _estadoProceso As Int32
    Private _descEstadoProceso As String
    Private _fechaProforma As String
    Private _formaContacto As String
    Private _comoseEntero As String
    Private _NombreVendedor As String
    Private _NAccion As Int32
    Private _OtroDocumento As String
    Private _TechoPropio As String
#End Region

#Region "           Atributos Apoderado             "
    Private _idRelacionado As Int32
    Private _EtpoDcmto As EtpoDcmto
    Private _nroDocumento As String
    Private _nacionalidad As String
    Private _celular1 As String
    Private _celular2 As String
    Private _idOcupacion As Int32
    Private _nroPartida As String
#End Region

#Region "           Atributos Otros                 "
    Private _bCliente As Int16
    Private _bconyugue As Int16
    Private _bcoopropietario As Int16
#End Region

#Region "           Propiedades                     "
    'Public Property idEmpresa() As Int32
    '    Get
    '        Return _idEmpresa
    '    End Get
    '    Set(ByVal value As Int32)
    '        _idEmpresa = value
    '    End Set
    'End Property
    Public Property idPosCliente() As Int32
        Get
            Return _idPosCliente
        End Get
        Set(ByVal value As Int32)
            _idPosCliente = value
        End Set
    End Property
    Public Property idDni() As String
        Get
            Return _idDni
        End Get
        Set(ByVal value As String)
            _idDni = value
        End Set
    End Property
    Public Property nombre() As String
        Get
            Return _nombre
        End Get
        Set(ByVal value As String)
            _nombre = value
        End Set
    End Property
    Public Property apePaterno() As String
        Get
            Return _apePaterno
        End Get
        Set(ByVal value As String)
            _apePaterno = value
        End Set
    End Property
    Public Property apeMaterno() As String
        Get
            Return _apeMaterno
        End Get
        Set(ByVal value As String)
            _apeMaterno = value
        End Set
    End Property
    Public Property telefono() As String
        Get
            Return _telefono
        End Get
        Set(ByVal value As String)
            _telefono = value
        End Set
    End Property
    Public Property telefonoLaboral() As String
        Get
            Return _telefonoLaboral
        End Get
        Set(ByVal value As String)
            _telefonoLaboral = value
        End Set
    End Property
    Public Property telefonoFijo() As String
        Get
            Return _telefonoFijo
        End Get
        Set(ByVal value As String)
            _telefonoFijo = value
        End Set
    End Property
    Public Property telefonoCelular() As String
        Get
            Return _telefonoCelular
        End Get
        Set(ByVal value As String)
            _telefonoCelular = value
        End Set
    End Property
    Public Property EnivelInteres() As EnivelInteres
        Get
            Return _EnivelInteres
        End Get
        Set(ByVal value As EnivelInteres)
            _EnivelInteres = value
        End Set
    End Property
    Public Property centroLaboral() As String
        Get
            Return _centroLaboral
        End Get
        Set(ByVal value As String)
            _centroLaboral = value
        End Set
    End Property
    Public Property Eubigeo() As Eubigeo
        Get
            Return _Eubigeo
        End Get
        Set(ByVal value As Eubigeo)
            _Eubigeo = value
        End Set
    End Property
    Public Property direccion() As String
        Get
            Return _direccion
        End Get
        Set(ByVal value As String)
            _direccion = value
        End Set
    End Property
    Public Property Eocupacion() As Eocupacion
        Get
            Return _Eocupacion
        End Get
        Set(ByVal value As Eocupacion)
            _Eocupacion = value
        End Set
    End Property
    Public Property EestadoCivil() As EestadoCivil
        Get
            Return _EestadoCivil
        End Get
        Set(ByVal value As EestadoCivil)
            _EestadoCivil = value
        End Set
    End Property
    Public Property sexo() As Int32
        Get
            Return _sexo
        End Get
        Set(ByVal value As Int32)
            _sexo = value
        End Set
    End Property
    Public Property descSexo() As String
        Get
            Return _descSexo
        End Get
        Set(ByVal value As String)
            _descSexo = value
        End Set
    End Property
    Public Property edad() As Int32
        Get
            Return _edad
        End Get
        Set(ByVal value As Int32)
            _edad = value
        End Set
    End Property
    Public Property email() As String
        Get
            Return _email
        End Get
        Set(ByVal value As String)
            _email = value
        End Set
    End Property
    Public Property totalIngreso() As Decimal
        Get
            Return _totalIngreso
        End Get
        Set(ByVal value As Decimal)
            _totalIngreso = value
        End Set
    End Property
    Public Property comentarios() As String
        Get
            Return _comentarios
        End Get
        Set(ByVal value As String)
            _comentarios = value
        End Set
    End Property
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
    '---------------------------------------'
    Public Property filtro() As String
        Get
            Return _filtro
        End Get
        Set(ByVal value As String)
            _filtro = value
        End Set
    End Property
    Public Property fchAccion() As String
        Get
            Return _fchAccion
        End Get
        Set(ByVal value As String)
            _fchAccion = value
        End Set
    End Property
    '---------------------------------------'
    Public Property estadoProceso() As Int32
        Get
            Return _estadoProceso
        End Get
        Set(ByVal value As Int32)
            _estadoProceso = value
        End Set
    End Property
    Public Property descEstadoProceso() As String
        Get
            Return _descEstadoProceso
        End Get
        Set(ByVal value As String)
            _descEstadoProceso = value
        End Set
    End Property
    Public Property fechaProforma() As String
        Get
            Return _fechaProforma
        End Get
        Set(ByVal value As String)
            _fechaProforma = value
        End Set
    End Property
    Public Property formaContacto() As String
        Get
            Return _formaContacto
        End Get
        Set(ByVal value As String)
            _formaContacto = value
        End Set
    End Property
    Public Property comoseEntero() As String
        Get
            Return _comoseEntero
        End Get
        Set(ByVal value As String)
            _comoseEntero = value
        End Set
    End Property
    Public Property NombreVendedor() As String
        Get
            Return _NombreVendedor
        End Get
        Set(ByVal value As String)
            _NombreVendedor = value
        End Set
    End Property
    Public Property NAccion() As Int32
        Get
            Return _NAccion
        End Get
        Set(ByVal value As Int32)
            _NAccion = value
        End Set
    End Property
    Public Property OtroDocumento() As String
        Get
            Return _OtroDocumento
        End Get
        Set(ByVal value As String)
            _OtroDocumento = value
        End Set
    End Property
    Public Property TechoPropio() As String
        Get
            Return _TechoPropio
        End Get
        Set(ByVal value As String)
            _TechoPropio = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "
    Public ReadOnly Property All() As String
        Get
            Return _nombre.Trim + "|" + _apePaterno.Trim + "|" + _apeMaterno.Trim + "|" + _EtpoDcmto.idTpoDcmto.ToString + "|" + _nroDocumento.Trim + "|" + _
                   _sexo.ToString + "|" + _edad.ToString + "|" + _EestadoCivil.idEstCivil.ToString + "|" + _email.Trim + "|" + _Eubigeo.idUbigeo.ToString + "|" + _
                   _direccion.Trim + "|" + _telefonoFijo.Trim + "|" + _telefonoCelular.Trim + "|" + _Eocupacion.idOcupacion.ToString + "|" + _centroLaboral.Trim + "|" + _
                   _telefonoLaboral.Trim + "|" + _totalIngreso.ToString + "|" + _comentarios.Trim
        End Get
    End Property
    Public ReadOnly Property Identificacion() As String
        Get
            Return _EtpoDcmto.idTpoDcmto.ToString & " - " & _nroDocumento.ToString
        End Get
    End Property
    Public ReadOnly Property NombresCompletos() As String
        Get
            Return nombre & " " & apePaterno & " " & apeMaterno
        End Get
    End Property
    Public ReadOnly Property Telefonos() As String
        Get
            Return telefonoFijo & " - " & telefonoCelular
        End Get
    End Property
    Public ReadOnly Property descNivelInteres() As String
        Get
            Return _EnivelInteres.descNivelInteres.Trim
        End Get
    End Property
#End Region

#Region "           Propiedades Apoderado           "
    Public Property idRelacionado() As Int32
        Get
            Return _idRelacionado
        End Get
        Set(ByVal value As Int32)
            _idRelacionado = value
        End Set
    End Property
    Public Property EtpoDcmto() As EtpoDcmto
        Get
            Return _EtpoDcmto
        End Get
        Set(ByVal value As EtpoDcmto)
            _EtpoDcmto = value
        End Set
    End Property
    Public Property nroDocumento() As String
        Get
            Return _nroDocumento
        End Get
        Set(ByVal value As String)
            _nroDocumento = value
        End Set
    End Property
    Public Property nacionalidad() As String
        Get
            Return _nacionalidad
        End Get
        Set(ByVal value As String)
            _nacionalidad = value
        End Set
    End Property
    Public Property celular1() As String
        Get
            Return _celular1
        End Get
        Set(ByVal value As String)
            _celular1 = value
        End Set
    End Property
    Public Property celular2() As String
        Get
            Return _celular2
        End Get
        Set(ByVal value As String)
            _celular2 = value
        End Set
    End Property
    Public Property idOcupacion() As Int32
        Get
            Return _idOcupacion
        End Get
        Set(ByVal value As Int32)
            _idOcupacion = value
        End Set
    End Property
    Public Property nroPartida() As String
        Get
            Return _nroPartida
        End Get
        Set(ByVal value As String)
            _nroPartida = value
        End Set
    End Property
#End Region

#Region "           Propiedades Otros               "
    Public Property bCliente() As Int16
        Get
            Return _bCliente
        End Get
        Set(ByVal value As Int16)
            _bCliente = value
        End Set
    End Property
    Public Property bConyugue() As Int16
        Get
            Return _bconyugue
        End Get
        Set(ByVal value As Int16)
            _bconyugue = value
        End Set
    End Property
    Public Property bCoopropietario() As Int16
        Get
            Return _bcoopropietario
        End Get
        Set(ByVal value As Int16)
            _bcoopropietario = value
        End Set
    End Property
#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idDni As String)
        Me.idDni = idDni
    End Sub
    Public Sub New(ByVal idCliente As Int32, ByVal nombre As String)
        Me.idPosCliente = idCliente
        Me.nombre = nombre
    End Sub
    Public Sub New(ByVal idCliente As Int32, ByVal idRelacionado As Int32, ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, _
                   ByVal nroDocumento As String, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal nacionalidad As String, ByVal email As String, ByVal telefono As String, ByVal celular1 As String, _
                   ByVal celular2 As String, ByVal idOcupacion As Int32, ByVal descOcupacion As String, ByVal nroPartida As String, _
                   ByVal estado As String, ByVal bCliente As Int16, ByVal bConyugue As Int16, ByVal bCoopropietario As Int16, _
                   ByVal idUsuario As Integer)
        Me.idPosCliente = idCliente
        Me.idRelacionado = idRelacionado
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.nroDocumento = nroDocumento
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.nacionalidad = nacionalidad
        Me.email = email
        Me.telefono = telefono
        Me.celular1 = celular1
        Me.celular2 = celular2
        Me.Eocupacion = New Eocupacion(idOcupacion, descOcupacion)
        Me.idOcupacion = idOcupacion
        Me.nroPartida = nroPartida
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
        Me.bCliente = bCliente
        Me.bConyugue = bConyugue
        Me.bCoopropietario = bCoopropietario
        Me.idUsuario = idUsuario
    End Sub
    Public Sub New(ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String)
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
    End Sub
    Public Sub New(ByVal telefonoFijo As String, ByVal telefonoCelular As String)
        Me.telefonoFijo = telefonoFijo
        Me.telefonoCelular = telefonoCelular
    End Sub

    '-------    CONSTRUCTOR  MANTENEDOR DE POSIBLE CLIENTE      --------'
    Public Sub New(ByVal idPosCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal sexo As Int32, ByVal idEstCivil As Int32, _
                   ByVal desEstCivil As String, ByVal idUbigeo As String, ByVal departamento As String, ByVal provincia As String, _
                   ByVal distrito As String, ByVal telefonoFijo As String, ByVal idOcupacion As Int32, ByVal descOcupacion As String, _
                   ByVal telefonoLaboral As String, ByVal nroDocumento As String, ByVal edad As Int32, ByVal email As String, _
                   ByVal direccion As String, ByVal telefonoCelular As String, ByVal centroLaboral As String, ByVal comentarios As String, _
                   ByVal estado As String, ByVal OtroDocumento As String)
        Me.idPosCliente = idPosCliente
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.sexo = sexo
        Me.descSexo = IIf(sexo = 1, "FEMENINO", IIf(sexo = 2, "MASCULINO", ""))
        Me.EestadoCivil = New EestadoCivil(idEstCivil, desEstCivil)
        Me.Eubigeo = New Eubigeo(idUbigeo, departamento, provincia, distrito)
        Me.telefonoFijo = telefonoFijo
        Me.Eocupacion = New Eocupacion(idOcupacion, descOcupacion)
        Me.telefonoLaboral = telefonoLaboral
        Me.nroDocumento = nroDocumento
        Me.edad = edad
        Me.email = email
        Me.direccion = direccion
        Me.telefonoCelular = telefonoCelular
        Me.centroLaboral = centroLaboral
        Me.comentarios = comentarios
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
        Me.OtroDocumento = OtroDocumento
    End Sub

    Public Sub New(ByVal idPosCliente As Int32, ByVal nroDocumento As String, ByVal nombre As String, _
                   ByVal apePaterno As String, ByVal apeMaterno As String)
        Me.idPosCliente = idPosCliente
        Me.nroDocumento = nroDocumento
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
    End Sub
    Public Sub New(ByVal idPosCliente As Int32, ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, _
                   ByVal edad As Int32, ByVal nombre As String, _
                   ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal idEstCivil As Int32, ByVal sexo As Int32, _
                   ByVal nacionalidad As String, ByVal telefonoFijo As String, _
                   ByVal telefonoCelular As String, ByVal email As String, ByVal idUbigeo As String, _
                   ByVal direccion As String, _
                   ByVal nroPartida As String)
        Me.idPosCliente = idPosCliente
        'Me.EtpoDcmto.idTpoDcmto = idTpoDcmto
        _EtpoDcmto = New EtpoDcmto(idTpoDcmto, nroDocumento)
        Me.nroDocumento = nroDocumento
        Me.edad = edad
        'Me.razonSocial = razonSocial
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        'Me.fchNacimineto = fchNacimineto
        'Me.EestadoCivil.idEstCivil = idEstCivil
        _EestadoCivil = New EestadoCivil(idEstCivil)
        'Me.nroDependientes = nroDependientes
        Me.sexo = sexo
        'Me.Eestudio.idEstudio = idEstudio
        Me.nacionalidad = nacionalidad
        Me.telefonoFijo = telefonoFijo
        Me.telefonoCelular = telefonoCelular
        Me.email = email
        'Me.Eubigeo.idUbigeo = idUbigeo
        _Eubigeo = New Eubigeo(idUbigeo)
        'Me.urbanizacion = urbanizacion
        Me.direccion = direccion
        'Me.separacionBienes = separacionBienes
        Me.nroPartida = nroPartida
    End Sub

    '-------    PROFORMA: FILTRAR    --------'
    Public Sub New(ByVal idPosCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal sexo As Int32, ByVal edad As Int32, _
                   ByVal idEstCivil As Int32, ByVal descEstCivil As String, ByVal email As String, ByVal idUbigeo As String, _
                   ByVal direccion As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal idOcupacion As Int32, _
                   ByVal descOcupacion As String, ByVal centroLaboral As String, ByVal telefonoLaboral As String, ByVal comentarios As String, ByVal OtroDocumento As String)
        Me.idPosCliente = idPosCliente
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, nroDocumento)
        Me.nroDocumento = nroDocumento
        Me.sexo = sexo
        Me.edad = edad
        Me.EestadoCivil = New EestadoCivil(idEstCivil, descEstCivil)
        Me.email = email
        Me.Eubigeo = New Eubigeo(idUbigeo, "", "", "")
        Me.direccion = direccion
        Me.telefonoFijo = telefonoFijo
        Me.telefonoCelular = telefonoCelular
        Me.Eocupacion = New Eocupacion(idOcupacion, descOcupacion)
        Me.centroLaboral = centroLaboral
        Me.telefonoLaboral = telefonoLaboral
        Me.comentarios = comentarios
        Me.EnivelInteres = New EnivelInteres(0, "")
        Me.OtroDocumento = OtroDocumento
    End Sub

    '-------    CONSTRUCTOR  ATENCION DE POSIBLE CLIENTE    --------'
    Public Sub New(ByVal idPosCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal direccion As String, ByVal email As String)
        Me.idPosCliente = idPosCliente
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.telefonoFijo = telefonoFijo
        Me.telefonoCelular = telefonoCelular
        Me.direccion = direccion
        Me.email = email
    End Sub
    Public Sub New(ByVal idPosCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal nroDocumento As String, ByVal sexo As Int32, _
                   ByVal edad As Int32, ByVal idEstCivil As Int32, ByVal desEstCivil As String, ByVal nacionalidad As String, _
                   ByVal email As String, ByVal direccion As String, ByVal idUbigeo As String, ByVal departamento As String, _
                   ByVal provincia As String, ByVal distrito As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, _
                   ByVal telefonoCelular2 As String, ByVal idOcupacion As Int32, ByVal descOcupacion As String, ByVal nroPartida As String, _
                   ByVal centroLaboral As String, ByVal telefonoLaboral As String, ByVal comentarios As String, ByVal estado As String)
        Me.idPosCliente = idPosCliente
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.nroDocumento = nroDocumento
        Me.sexo = sexo
        Me.edad = edad
        Me.EestadoCivil = New EestadoCivil(idEstCivil, desEstCivil)
        Me.Eubigeo = New Eubigeo(idUbigeo, departamento, provincia, distrito)
        Me.telefonoFijo = telefonoFijo
        Me.Eocupacion = New Eocupacion(idOcupacion, descOcupacion)
        Me.telefonoLaboral = telefonoLaboral
        Me.email = email
        Me.direccion = direccion
        Me.telefonoCelular = telefonoCelular
        Me.centroLaboral = centroLaboral
        Me.comentarios = comentarios
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub
    Public Sub New(ByVal idPosCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal descNivelInteres As String, ByVal direccion As String, ByVal email As String, _
                   ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal nroDocumento As String, ByVal idUbigeo As String, _
                   ByVal departamento As String, ByVal provincia As String, ByVal distrito As String, ByVal centroLaboral As String, _
                   ByVal telefonoLaboral As String, ByVal fchAccion As String, ByVal estadoProceso As Int32, ByVal descEstadoProceso As String)
        Me.idPosCliente = idPosCliente
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.telefonoFijo = telefonoFijo
        Me.telefonoCelular = telefonoCelular
        Me.EnivelInteres = New EnivelInteres(0, descNivelInteres)
        'Me.EnivelInteres.descNivelInteres = descNivelInteres
        Me.direccion = direccion
        Me.email = email
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.nroDocumento = nroDocumento
        Me.Eubigeo = New Eubigeo(idUbigeo, departamento, provincia, distrito)
        Me.centroLaboral = centroLaboral
        Me.telefonoLaboral = telefonoLaboral
        If fchAccion.Trim.Equals("") Then
            Me.fchAccion = ""
        Else
            Me.fchAccion = Convert.ToDateTime(fchAccion).ToString("dd/MM/yyyy")
        End If
        Me.estadoProceso = estadoProceso
        Me.descEstadoProceso = descEstadoProceso
    End Sub
    'Modificacion agregando campos a posible cliente JFG
    Public Sub New(ByVal idPosCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal descNivelInteres As String, ByVal direccion As String, ByVal email As String, _
                   ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal nroDocumento As String, ByVal idUbigeo As String, _
                   ByVal departamento As String, ByVal provincia As String, ByVal distrito As String, ByVal centroLaboral As String, _
                   ByVal telefonoLaboral As String, ByVal fchAccion As String, ByVal estadoProceso As Int32, ByVal descEstadoProceso As String, _
                   ByVal fechaProforma As String, ByVal formaContacto As String, ByVal comoseEntero As String, ByVal Vendedor As String, ByVal NAccion As Int32, ByVal TechoPropio As String)
        Me.idPosCliente = idPosCliente
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.telefonoFijo = telefonoFijo
        Me.telefonoCelular = telefonoCelular
        Me.EnivelInteres = New EnivelInteres(0, descNivelInteres)
        'Me.EnivelInteres.descNivelInteres = descNivelInteres
        Me.direccion = direccion
        Me.email = email
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.nroDocumento = nroDocumento
        Me.Eubigeo = New Eubigeo(idUbigeo, departamento, provincia, distrito)
        Me.centroLaboral = centroLaboral
        Me.telefonoLaboral = telefonoLaboral
        If fchAccion.Trim.Equals("") Then
            Me.fchAccion = ""
        Else
            Me.fchAccion = Convert.ToDateTime(fchAccion).ToString("dd/MM/yyyy")
        End If
        Me.estadoProceso = estadoProceso
        Me.descEstadoProceso = descEstadoProceso
        Me.fechaProforma = fechaProforma
        Me.formaContacto = formaContacto
        Me.comoseEntero = comoseEntero
        Me.NombreVendedor = Vendedor
        Me.NAccion = NAccion
        Me.TechoPropio = TechoPropio

    End Sub
    '-------    CONSTRUCTOR ATENCION AL CLIENTE VERSUS          --------'
    Public Sub New(ByVal idPosCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal descNivelInteres As String, ByVal direccion As String, ByVal email As String, _
                   ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal nroDocumento As String, ByVal idUbigeo As String, _
                   ByVal departamento As String, ByVal provincia As String, ByVal distrito As String, ByVal centroLaboral As String, _
                   ByVal telefonoLaboral As String)
        Me.idPosCliente = idPosCliente
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.telefonoFijo = telefonoFijo
        Me.telefonoCelular = telefonoCelular
        Me.EnivelInteres = New EnivelInteres(0, descNivelInteres)
        'Me.EnivelInteres.descNivelInteres = descNivelInteres
        Me.direccion = direccion
        Me.email = email
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.nroDocumento = nroDocumento
        Me.Eubigeo = New Eubigeo(idUbigeo, departamento, provincia, distrito)
        Me.centroLaboral = centroLaboral
        Me.telefonoLaboral = telefonoLaboral
    End Sub
    '-------    CONSTRUCTOR DATOS DEL CLIENTE PROFORMA          --------'
    Public Sub New(ByVal idPosCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                  ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal sexo As Int32, ByVal idEstCivil As Int32, _
                  ByVal desEstCivil As String, ByVal idUbigeo As String, ByVal departamento As String, ByVal provincia As String, _
                  ByVal distrito As String, ByVal telefonoFijo As String, ByVal idOcupacion As Int32, ByVal descOcupacion As String, _
                  ByVal telefonoLaboral As String, ByVal nroDocumento As String, ByVal edad As Int32, ByVal email As String, _
                  ByVal direccion As String, ByVal telefonoCelular As String, ByVal centroLaboral As String, ByVal totalIngreso As Decimal, _
                  ByVal comentarios As String)
        Me.idPosCliente = idPosCliente
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.idDni = idTpoDcmto
        Me.sexo = sexo
        Me.descSexo = ""
        Me.EestadoCivil = New EestadoCivil(idEstCivil, desEstCivil)
        Me.Eubigeo = New Eubigeo(idUbigeo, departamento, provincia, distrito)
        Me.telefono = ""
        Me.telefonoFijo = telefonoFijo
        Me.Eocupacion = New Eocupacion(idOcupacion, descOcupacion)
        Me.telefonoLaboral = telefonoLaboral
        Me.telefonoCelular = ""
        Me.nroDocumento = nroDocumento
        Me.edad = edad
        Me.email = email
        Me.direccion = direccion.Trim
        Me.telefonoCelular = telefonoCelular
        Me.centroLaboral = centroLaboral
        Me.totalIngreso = totalIngreso
        Me.comentarios = comentarios
        Me.EnivelInteres = New EnivelInteres(0, "")
        Me.filtro = ""
        Me.celular1 = ""
        Me.celular2 = ""
        Me.nacionalidad = ""
        Me.nroPartida = ""
        Me.estado = ""
        Me.descEstado = ""
        Me.idUsuario = 0
    End Sub
    '-------    CONSTRUCTOR POSIBLE CLIENTE PROFORMA (CONSULTA)          --------'
    Public Sub New(ByVal idPosCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal sexo As Int32, ByVal idEstCivil As Int32, _
                   ByVal desEstCivil As String, ByVal idUbigeo As String, ByVal departamento As String, ByVal provincia As String, _
                   ByVal distrito As String, ByVal telefonoFijo As String, ByVal idOcupacion As Int32, ByVal descOcupacion As String, _
                   ByVal telefonoLaboral As String, ByVal nroDocumento As String, ByVal edad As Int32, ByVal email As String, _
                   ByVal direccion As String, ByVal telefonoCelular As String, ByVal centroLaboral As String, ByVal totalIngreso As Decimal, _
                   ByVal comentarios As String, ByVal estado As String)
        Me.idPosCliente = idPosCliente
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.sexo = sexo
        Me.descSexo = IIf(sexo = 1, "FEMENINO", IIf(sexo = 2, "MASCULINO", ""))
        Me.EestadoCivil = New EestadoCivil(idEstCivil, desEstCivil)
        Me.Eubigeo = New Eubigeo(idUbigeo, departamento, provincia, distrito)
        Me.telefonoFijo = telefonoFijo
        Me.Eocupacion = New Eocupacion(idOcupacion, descOcupacion)
        Me.telefonoLaboral = telefonoLaboral
        Me.nroDocumento = nroDocumento
        Me.edad = edad
        Me.email = email
        Me.direccion = direccion
        Me.telefonoCelular = telefonoCelular
        Me.centroLaboral = centroLaboral
        Me.comentarios = comentarios
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub

#End Region

End Class
